home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 4.1.5.dxr / Internal_3_show-hide on msg.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  811 b   |  30 lines
  1. property spriteNum, Pactie, Pmsg, Pdefault
  2.  
  3. on beginSprite me
  4.   if Pdefault = #aan then
  5.     sprite(spriteNum).visible = 1
  6.   else
  7.     sprite(spriteNum).visible = 0
  8.   end if
  9.   PmemberOri = sprite(spriteNum).member
  10. end
  11.  
  12. on uit me
  13.   sprite(spriteNum).visible = 0
  14. end
  15.  
  16. on aan me, Msg
  17.   sendSprite(spriteNum, #reset)
  18.   if Msg = Pmsg then
  19.     sprite(spriteNum).visible = 1
  20.   end if
  21. end
  22.  
  23. on getPropertyDescriptionList me
  24.   propertyList = [:]
  25.   setaProp(propertyList, #Pdefault, [#comment: "what is the default state", #format: #text, #default: #uit, #range: [#aan, #uit]])
  26.   setaProp(propertyList, #Pactie, [#comment: "kies een actie", #format: #text, #default: #Hide, #range: [#Show, #Hide]])
  27.   setaProp(propertyList, #Pmsg, [#comment: "react on what msg?", #format: #text, #default: "msg"])
  28.   return propertyList
  29. end
  30.